home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 5 / Windows 6-Pak (InfoMagic) (Disc 5) (1999).ISO / Scripting-Tools / js15full.exe / tickstat.ht_ / tickstat.ht
Encoding:
Text File  |  1998-02-15  |  1.2 KB  |  51 lines
  1. <!---Java Script code by Java Script It! www.computan.on.ca/~todd/jscript --><html>
  2.  
  3. <head>
  4.  
  5. <title>Statusbar Message Maker</title>
  6.  
  7. <script language="JavaScript">
  8. <!-- Hide the script from old browsers --
  9.  
  10. //======================================================
  11. // Java Script code by Java Script It!   www.computan.on.ca/~todd/jscipt
  12. //======================================================
  13.  
  14. var timerID = null;
  15. var timerRunning = false;
  16. var id,pause=0,position=0;
  17.  
  18. function txtScroll() {
  19. var i,x
  20. var message="A scrolling text message that endlessly loops while the user is on this page. Use carefully, as not to sicken the user.";x=(60/message.length)+1;
  21. for(i=0;i<=x;i++) message+=" "+message;
  22. window.status=message.substring(position,position+60);
  23. if(position++==128) position=2;
  24. id=setTimeout("txtScroll()",1000/10);}
  25. function action() {
  26.         if(!pause) {
  27.                 clearTimeout(id);
  28.                 pause=1; }
  29.  
  30.         else {
  31.                 ticker();
  32.                 pause=0; }
  33.  }
  34.  
  35. // --End Hiding Here -->
  36. </script>
  37.  
  38.  
  39. <head>
  40.  
  41. <body onLoad="txtScroll()"  bgColor="#FFFFFF" text="#000000">
  42.  
  43. This is what a Ticker Tape looks like in the statusbar...<p>
  44.  
  45. </body>
  46.  
  47. </html>
  48.  
  49.  
  50.  
  51.